home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / RPC / XML / identity.xpl < prev    next >
Encoding:
Extensible Markup Language  |  2008-11-04  |  885 b   |  41 lines
  1. <?xml version="1.0" encoding="iso-8859-1"?>
  2. <!DOCTYPE methoddef SYSTEM "rpc-method.dtd">
  3. <!--
  4.     Generated automatically by make_method v1.12, Wed Nov  5 03:59:22 2008
  5.  
  6.     Any changes made here will be lost.
  7. -->
  8. <methoddef>
  9. <name>system.identity</name>
  10. <version>1.1</version>
  11. <signature>string</signature>
  12. <help>
  13. Return the server name and version as a string
  14. </help>
  15. <code language="perl">
  16. <![CDATA[
  17. #!/usr/bin/perl
  18. ###############################################################################
  19. #
  20. #   Sub Name:       identity
  21. #
  22. #   Description:    Simply returns the server's identity as a string
  23. #
  24. #   Arguments:      First arg is server instance
  25. #
  26. #   Globals:        None.
  27. #
  28. #   Returns:        string
  29. #
  30. ###############################################################################
  31. sub identity
  32. {
  33.     use strict;
  34.  
  35.     $_[0]->product_tokens;
  36. }
  37.  
  38. __END__
  39. ]]></code>
  40. </methoddef>
  41.